Home

Row

Data Refreshed July 2021

Marcin MTG Data

Count of Cards

3845

Full Collection Table

     Name             Edition              Count         tcgplayer_id   
 Length:3845        Length:3845        Min.   : 1.000   Min.   : 33248  
 Class :character   Class :character   1st Qu.: 1.000   1st Qu.:129746  
 Mode  :character   Mode  :character   Median : 1.000   Median :130204  
                                       Mean   : 1.665   Mean   :146941  
                                       3rd Qu.: 2.000   3rd Qu.:239713  
                                       Max.   :11.000   Max.   :240465  
                                                        NA's   :3363    
---
title: "MTG Collection"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(DT)
library(rpivotTable)
library(ggplot2)
library(openintro)
library(highcharter)
library(dplyr)
library(tidyverse)
library(plotly)
library(maps)
library(httr)
library(jsonlite)



```

```{r}
data <- read.csv("~/Documents/GitHub/mtg/data.csv")

collection <- data %>% select('Count','Name', 'Edition','Card.Number')

collection <- setNames(collection, c('count','name','edition','cardNumber')) 

library(jsonlite)
MH2.1 <- jsonlite::read_json('https://api.scryfall.com/cards/search?format=json&q=set:mh2%20lang=en&page=1')

MH2.2 <- jsonlite::read_json("https://api.scryfall.com/cards/search?format=json&q=set:mh2%20lang=en&page=2")

library(tidyjson)
MH2 <- data.frame(MH2.1$data %>% spread_all %>% select('name','tcgplayer_id','set_name'))

MH2.2 <- data.frame(MH2.2$data %>% spread_all %>% select('name','tcgplayer_id','set_name'))

MH2 <- rbind(MH2, MH2.2)
MH2 <- MH2[head(seq_len(ncol(MH2)), -1)]
MH2 <- setNames(MH2, c('Name','tcgplayer_id','Edition'))


##
ZEN <- jsonlite::read_json('https://api.scryfall.com/cards/search?format=json&q=set:zen%20lang=en&page=1')
ZEN.2 <- jsonlite::read_json('https://api.scryfall.com/cards/search?format=json&q=set:zen%20lang=en&page=2')
ZEN <- data.frame(ZEN$data %>% spread_all %>% select('name','tcgplayer_id','set_name'))
ZEN.2 <- data.frame(ZEN.2$data %>% spread_all %>% select('name','tcgplayer_id','set_name'))

ZEN <- rbind(ZEN, ZEN.2)
ZEN <- ZEN[head(seq_len(ncol(ZEN)), -1)]
ZEN <- setNames(ZEN, c('Name','tcgplayer_id','Edition'))

###
AKH <- jsonlite::read_json('https://api.scryfall.com/cards/search?format=json&q=set:akh%20lang=en&page=1')
AKH.2 <- jsonlite::read_json('https://api.scryfall.com/cards/search?format=json&q=set:akh%20lang=en&page=2')
AKH <- data.frame(AKH$data %>% spread_all %>% select('name','tcgplayer_id','set_name'))
AKH.2 <- data.frame(AKH.2$data %>% spread_all %>% select('name','tcgplayer_id','set_name'))

AKH <- rbind(AKH, AKH.2)
AKH <- AKH[head(seq_len(ncol(AKH)), -1)]
AKH <- setNames(AKH, c('Name','tcgplayer_id','Edition'))

Scryfall <- rbind(ZEN, MH2, AKH)

```




```{r}

```

```{r}


```


Home
==================

Row
------------------

### Data Refreshed July 2021

```{r}
valueBox(paste('Marcin MTG Data'),
color = '#063970')
```

### Count of Cards

```{r}

valueBox(length(collection$name),
         icon = 'fa-tree')

```


Full Collection Table
========================
```{r}

dataSummary <- data %>% select('Name','Edition','Count')

dataSummary <- left_join(dataSummary, Scryfall, by = c('Edition','Name'))


datatable(dataSummary,
          caption = 'Full Ratings Table',
          rownames = T,
          filter = 'top',
          options= list(pageLength = 100))


summary(dataSummary)



```